home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / Timing / ACal1_1.lha / ACal / Install-ACal < prev   
Encoding:
Text File  |  1995-10-22  |  3.9 KB  |  192 lines
  1. ;
  2. ; Script d'installation pour ACal
  3. ;
  4.  
  5. (set @default-dest "SYS:WBStartup")
  6.  
  7.  
  8. ;===========================================================================
  9. ; Chaînes françaises
  10.  
  11. (if (= @language "français")
  12.     (
  13.         (set default_lang 2)
  14.         
  15.         (set #bad-kick "ACal nécessite au moins le Kickstart 2.04\nDésolé")
  16.         
  17.         (welcome "Bienvenue dans l'utilitaire d'installation d'ACal")
  18.         (set #install-msg
  19.             (cat "\nScript d'installation d'ACal v1.0\n"
  20.                  "Ce script installe ACal sur votre Amiga.\n\n"
  21.                  "© 1994-95 Denis Galiana"
  22.             )
  23.         )
  24.         
  25.         (set #acal-dir "Indiquez le répertoire où doit être copié ACal")
  26.  
  27.         (set #copy-acal "Copie du programme ACal et de son icône")
  28.  
  29.         (set #langage
  30.             (cat "Choisissez les différentes traductions d'ACal "
  31.                  "que vous voulez installer."
  32.             )
  33.         )
  34.         
  35.         (set #run-acal
  36.             (cat "Le programme ACal va maintenant être lancé afin de vous "
  37.                  "permettre de le configurer.\n\n"
  38.                  "Dans le menu, choisissez 'Verrouiller fenêtre' afin de "
  39.                  "pouvoir déplacer la fenêtre.\n"
  40.                  "Puis, choisissez les fontes du jour et du mois.\n\n"
  41.                  "Finallement, sauvegardez la configuration (position et "
  42.                  "fontes) et quittez."
  43.             )
  44.         )
  45.  
  46.         (set #acal-running "Lancement du programme ACal ...")
  47.     )
  48. )
  49.  
  50.  
  51. ;===========================================================================
  52. ; english strings
  53.  
  54. (if (= @language "english")
  55.     (
  56.         (set default_lang 1)
  57.         
  58.         (set #bad-kick "ACal needs Kickstart 2.04 or more.\nSory")
  59.         
  60.         (welcome "Welcome in ACal installation utility")
  61.         (set #install-msg
  62.             (cat "\nInstallation script for ACal v1.0\n"
  63.                  "This script installs ACal on your Amiga.\n\n"
  64.                  "© 1994-95 Denis Galiana"
  65.             )
  66.         )
  67.         
  68.         (set #acal-dir "Please, select directory where ACal should be copied")
  69.  
  70.         (set #copy-acal "Copying ACal program and its icon")
  71.  
  72.         (set #langage
  73.             (cat "Choose different translations of ACal "
  74.                  "that you want to install."
  75.             )
  76.         )
  77.         
  78.         (set #run-acal
  79.             (cat "ACal program is about to be run for you to set it up.\n\n"
  80.                  "In the menu, select 'Lock window' to allow window movement.\n"
  81.                  "Then, choose day and month fonts.\n\n"
  82.                  "Finaly, save the configuration (position and fonts) "
  83.                  "then quit."
  84.             )
  85.         )
  86.  
  87.         (set #acal-running "Run ACal program ...")
  88.     )
  89. )
  90.  
  91.  
  92. ;===========================================================================
  93. ; Regarde si la version du système est au moins 2.04 (37)
  94.  
  95.  
  96. (if (< (/ (getversion) 65536) 37)
  97.     (
  98.         (message #bad-kick)
  99.         (exit (quiet))
  100.     )
  101. )
  102.  
  103. ;===========================================================================
  104. ; Début
  105.  
  106. (message #install-msg)
  107.  
  108. ;===========================================================================
  109. ; Copie du programme dans sys:wbstartup
  110.  
  111. ; Demande le répertoire
  112.  
  113. (set @default-dest
  114.     (askdir
  115.         (prompt #acal-dir)
  116.         (help @askdir-help)
  117.         (default "SYS:WBStartup")
  118.     )
  119. )
  120.  
  121. (copyfiles
  122.     (prompt #copy-acal)
  123.     (help @copyfiles-help)
  124.     (source "ACal")
  125.     (dest @default-dest)
  126.     (infos)
  127.     (confirm)
  128. )
  129.  
  130. (complete 50)
  131.  
  132. ;===========================================================================
  133. ; Installe la Locale
  134.  
  135. (if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
  136.     (
  137.         (set lang
  138.             (askoptions
  139.                 (prompt #langage)
  140.                 (help #langage-help)
  141.                 (choices
  142.                     "English"
  143.                     "Français"
  144.                     "Deutsch"
  145.                 )
  146.                 (default default_lang)
  147.             )
  148.         )
  149.  
  150.         (set n 0)
  151.         (while
  152.             (set language
  153.                 (select n
  154.                     "english"
  155.                     "français"
  156.                     "deutsch"
  157.                     ""
  158.                 )
  159.             )
  160.             (
  161.                 (if (AND (IN lang n) (<> 1 n))
  162.                     (
  163.                         (copylib
  164.                             (prompt "")
  165.                             (help "")
  166.                             (source (cat "Catalogs/" language "/ACal.catalog"))
  167.                             (dest (cat "LOCALE:Catalogs/" language))
  168.                             (confirm)
  169.                         )
  170.                     )
  171.                 )
  172.                 (set n (+ n 1))
  173.             )
  174.         )
  175.     )
  176. )
  177.  
  178. (complete 80)
  179.  
  180. ;===========================================================================
  181. ; Lancement du programme pour la sauvegarde des préférences
  182.  
  183. (message #run-acal)
  184.  
  185. (run (tackon @default-dest "ACal")
  186.     (prompt #acal-running)
  187.     (help "")
  188.     (confirm)
  189. )
  190.  
  191. (complete 100)
  192.